home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / serial / dcon0.000 / dcon0 / dcon0.96 / loopback.scr < prev    next >
Text File  |  1996-06-20  |  1KB  |  52 lines
  1. #/usr/local/bin/dcon
  2. #dcon loopback test.  For this test you need a very basic loopback cable
  3. #connected to your serial port. (RS232 DB25 -> 2&3, 4&5, 6&8&20 )
  4. open com /dev/cua1 # loopback on COM2
  5. set comecho on     # If you like
  6. set ignorecase off
  7. goto dotests
  8. :doatest
  9. print "Doing a test @ ",$p,"\n"
  10. set com $p
  11. waitquiet 30 0.1  # Wait for a 1/10sec 
  12. send "This string should be ignored.  The quick brown fox jumped over the lazy dog.\r\n"
  13. send "This string should be a hit.\r\n"
  14. send "This is ignored. 01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ\r\n"
  15. waitfor 60 "This isn't right." "This string should be a hit.\r\n" "Wrong"
  16. if % = -1 print "Waifor timed-out!" goto error
  17. if % != 1 print "Received the wrong string!" goto error
  18. print "Hit!\n"
  19. waitquiet 30 0.1  # Wait for a 1/10sec 
  20. print "Test @ ",$p," Ok.\n"
  21. return
  22. :dotests
  23. let $p="110n81"
  24. gosub doatest
  25. let $p="300n81"
  26. gosub doatest
  27. let $p="300e71"
  28. gosub doatest
  29. let $p="300e72"
  30. gosub doatest
  31. let $p="300o71"
  32. gosub doatest
  33. let $p="300o72"
  34. gosub doatest
  35. let $p="1200n81"
  36. gosub doatest
  37. let $p="2400n81"
  38. gosub doatest
  39. let $p="4800n81"
  40. gosub doatest
  41. let $p="9600n81"
  42. gosub doatest
  43. let $p="19200n81"
  44. gosub doatest
  45. let $p="38400n81"
  46. gosub doatest
  47. print "All tests OK!\n"
  48. goto exit
  49. :error
  50. print "\n"
  51. :exit
  52.